home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)abb.d64 / type derby (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  5KB  |  119 lines
  1. 0 FORL=54272TO54296:POKEL,0:NEXTL:POKE53281,15:POKE53280,15
  2. 1 POKE54296,0:PRINT"[147]TYPING DERBY[146][144]"
  3. 2 PRINT" INSTRUCTIONS (Y=YES)"
  4. 4 GETA$:IFA$=""THEN4
  5. 6 IFA$="Y"THENGOSUB400
  6. 8 PRINT"[147] ENTER LEVEL (1-13)";:INPUTL1
  7. 9 IFL1<1ORL1>13THEN8
  8. 10 C(0)=55456:C(1)=55576:C(2)=55696:H=1184:H1=1224:J=1624
  9. 11 L=L1:S=(220*(L1-1))+(10*-(L1>1))
  10. 14 PRINT"[147]COMPUTER SPEED (5-50)"SPC(58)"(50 IS THE SLOWEST)";
  11. 15 INPUTR1:R=R1
  12. 16 IFR<5ORR>50THEN14
  13. 17 GOTO21
  14. 18 POKE 198,0:PRINT"[147] DO YOU WISH TO CONTINUE? (Y/N)";
  15. 19 GETX$:IFX$=""ANDX$<>"N"ANDX$<>"Y"THEN19
  16. 20 IFX$="N"THENEND
  17. 21 M=0:N=0:N1=0:IFS>220*LTHENL=L+1:L1=L1+1:R=R1:IFL.13THENPRINT"[147] THE END 1"
  18. 22 PRINTCHR$(147):POKE53280,3:POKE53281,1:PRINT"[145][144]SCORE:"S:IFL1>9THEN24
  19. 23 PRINTTAB(30)"[145][146] LEVEL"L1"[146]":GOTO30
  20. 24 PRINTTAB(30)"[145][145] LEVEL"L1"[146]"
  21. 30 FORI=1144TO1183:POKEI,114:POKEI+54272,0:NEXTI
  22. 31 FORI=1264TO1303:POKEI,91:POKEI+54272,0:NEXTI
  23. 32 FORI=1384TO1423:POKEI,91:POKEI+54272,0:NEXTI
  24. 33 FORI=1504TO1543:POKEI,113:POKEI+54272,0:NEXTI
  25. 34 POKE1502,103:POKE55774,0:POKE1462,95:POKE55734,2
  26. 35 FORI=1TO3*L-2:READD$:NEXTI:RESTORE:PRINT""D$
  27. 50 FORI=1TO3*L-1:READD$:NEXTI:RESTORE:PRINT""D$
  28. 51 FORI=1TO3*L:READD$:NEXTI:RESTORE:PRINT""D$
  29. 53 IFL=7THENPOKE1646,44
  30. 54 IFL=8THENFORI=OTO6STEP2:POKE1624+I,58:NEXTI
  31. 55 IFL=8THEN:POKE1663,44:POKE1730,58:POKE1732,58
  32. 56 IFL=9THENPOKE1689,58
  33. 60 FORI=0TO2:FORT=0TO39:POKEC(I)+T,2:NEXTT:NEXTI:POKEH,94
  34. 70 FORI=0TO2:FORT=0TO39:POKEC(I)+40+T,0:NEXTT:NEXTI:POKEH1,94
  35. 80 IFN=0ANDM=0ORS=(300*L)+10THENGOSUB300
  36. 90 IFM=39ORM=159THENM1=M:M=M+80
  37. 100 IFPEEK(H1+M+1)<>32THEN18
  38. 110 IFTI>T+RTHENPOKEH1+M1,32:POKEH1+M,32:M=M+1:POKEH1+M,94:T=TI
  39. 120 GETA$:IFA$=""THEN90
  40. 130 IFASC(A$)=PEEK(J+N1)THEN150
  41. 140 IFASC(A$)<>PEEK(J+N1)+64THEN90
  42. 150 POKE55896+N1,2:N1=N1+1:IFN=39ORN=159THENN2=N:N=N+81
  43. 160 POKEH+N,32:POKEH+N2,32:N=N+1:IFPEEK(H+N)<>32THENS=S+10:R=R-1:GOTO18
  44. 170 POKEH+N,94:GOTO90
  45. 200 DATAFRF FTF FGF FBF FVF FRF FTF FGF FBF FVF
  46. 201 DATAFRF FTF FGF FBF FVF FRF FTF FGF FBF FVF
  47. 202 DATAFRF FTF FGF FBF FVF FRF FTF FGF FRTB
  48. 203 DATADED DCD FRF FTF FGF FBF FVF DED DCD FRF
  49. 204 DATAFTF FGF FBF FVF DED DCD FRF FTF FGF FBF
  50. 205 DATAFVF DED DCD FRF FTF FGF FBF FVF FDEV
  51. 206 DATASWS SXS DED DCD FRF FTF FGF FBF FVF SWS
  52. 207 DATASXS DED DCD FRF FTF FGF FBF FVF SWS SXS
  53. 208 DATADED DCD FRF FTF FGF FBF FVF SWS SCDX
  54. 209 DATAAQA AZA SWS SXS DED DCD FRF FTF FGF AQA
  55. 210 DATAAZA SWS SXS DED DCD FRF FTF FGF AQA AZA
  56. 211 DATASWS SXS DED DCD FRF FTF FGF AQA AZQW
  57. 212 DATAJUJ JYJ JHJ JNJ JMJ AQA AZA SWS SXS DED
  58. 213 DATADCD JUJ JYJ JHJ JNJ JMJ AQA AZA SWS SXS
  59. 214 DATADED DCD JUJ JYJ JHJ JNJ JMJ AQAJUQX
  60. 215 DATAKIK KIK JUJ JYJ JHJ JNJ JMJ AQA AZA SWS
  61. 216 DATA SXS DED DCD KIK KIK FRF JUJ JYJ JNJ JMJ
  62. 217 DATAAQA AZA SWS SXS DED DCD KIK KIK KIZD
  63. 218 DATALOL L.L KIK KIK JUJ JYJ JHJ JNJ JMJ AQA
  64. 219 DATAAZA SWS SXS FTF LOL L.L KIK KIK JUJ JYJ
  65. 220 DATAJHJ JNJ JMJ AQA AZA SWS SXS FTF LZJM
  66. 221 DATA;P; ;/; LOL L.L KIK KIK JUJ JYJ JHJ JNJ
  67. 222 DATAJMJ AQA AZA SWS SXS ;P; ;/; LOL L.L KIK
  68. 223 DATAKIK JUJ JYJ JHJ JNJ JMJ AQA AZA SK;Q
  69. 224 DATAA11 S22 D33 F44 F55 J66 J77 K88 L99 ;00
  70. 225 DATA Z11 X22 C33 V44 V55 N66 A11 S22 D33 F44
  71. 226 DATAF55 J66 J77 K88 L99 ;00 Z11 X22 C3F5
  72. 227 DATAIF IF  IT IT IT  IS IS IS TIME TIME IF I
  73. 228 DATAF IF IT IS TIME IF IT IS IS IS IT IT IT IS
  74. 229 DATAIF IF IS IS TIME TIME TIME IT IT  IFS
  75. 230 DATAWE WE WE  CAN CAN CAN  PLAY PLAY PLAY WE
  76. 231 DATAWE WE WE CAN CAN CAN PLAY CAN PLAY WE WE
  77. 232 DATACAN CAN WE WE PLAY PLAY WE CAN  CANN
  78. 233 DATATHE LITTLE BROWN FOX QUICKLY RUNS AND JU
  79. 234 DATAMPS OVER THE LAZY DOG.DOG IS LAZY.FOX IS
  80. 235 DATA JUMPING.DOG IS SLEEPY AND VERY ANGRY
  81. 236 DATATHIS RACE WILL END THE GAMES;IF YOUR TYP
  82. 237 DATAING DOES NOT FAIL.BYE.YOUR TYPING SHOULD
  83. 238 DATA NOT FAIL. YOUR PRACTICE WAS RIGOROUS
  84. 300 V=54296:V1=54276:AD=54277:SR=54278:FH=54273:FL=54272
  85. 301 POKEV,15:POKEFH,70:POKEFL,75
  86. 302 POKEAD,26:POKESR,178:FORT=1TO10:POKEV1,17
  87. 303 FORQ=1TO150:NEXT:POKEV1,16:NEXT
  88. 304 POKE54296,0:RETURN
  89. 400 PRINT"[147]TYPING DERBY[146][144]"
  90. 401 PRINT" BASIC TOUCH TYPING TUTOR[146]"
  91. 402 PRINT"1[146] LEARN FINGERS' RANGE ON THE KEY-        BOARD"
  92. 403 PRINT"2[146] TYPE WITHOUT LOOKING AT THE KEYBOARD"
  93. 404 PRINT"3[146] AT FIRST, ACCURACY IS BETTER THAN       SPEED"
  94. 405 PRINT"4[146] BEAT THE BLACK HORSE 23 TIMES AND       MOVE ON";
  95. 406 PRINT "TO THE NEXT LEVEL":PRINT"[144] PRESS ANY KEY TO CONTINUE[146]"
  96. 407 GETF$:IFF$=""THEN407
  97. 650 PRINT"[147]":POKE53280,9:POKE53281,15
  98. 660 PRINT"[147] ":PRINT"          [209] [146]                 [209] "
  99. 670 PRINT"       [209][167] 3[167] [209] [146]           [209][167] 8[167] [209] "
  100. 680 PRINT"       2[167] E[167] 4 [146]           6[167] I[167] 9 "
  101. 690 PRINT"    [209][170] W[170][152]D[167] 5 [146]             7[170] [152]K[167] O[167] [209] "
  102. 700 PRINT"    1[167] [152]S[167] C[167] R [146]           Y[167] ,[167] [152]L[167] 0 "
  103. 710 PRINT"    Q[167] X[167]  [167] T[167] [209] [146]     [209][167] U[167]  [167] .[167] P "
  104. 720 PRINT"    [152]A[167]       [152]F[167]   [146]     [144]S[167] H      [167] [152]: "
  105. 730 PRINT"    Z[167]       G[167]   [146]     [144]P[167][152]J      [167] / "
  106. 740 PRINT"             V[167]   [146]    [144]C  M          "
  107. 750 PRINT"             B    [146]     [144]E  N          "
  108. 760 PRINT"                 [146][169]    [223]              "
  109. 770 PRINT"   [223]            [146][169]      [223]            [146][169]"
  110. 780 PRINT"    [223]          [146][169]        [223]          [146][169]"
  111. 790 PRINT"               [146]                    "
  112. 800 PRINT"               [146]                    "
  113. 810 PRINT:PRINT"        LEFT[146]                RIGHT"
  114. 820 PRINTTAB(14)"FINGER RANGE":PRINT"               [144]SPACE BAR[146]"
  115. 830 PRINT"               [152]HOME KEYS[146]"
  116. 840 PRINT"PRESS ANY KEY TO CONTINUE";
  117. 850 GETQ$:IFQ$=""THEN850
  118. 860 RETURN
  119.